home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / langwn2.exe / LANGWIN.BI next >
Encoding:
Text File  |  1993-03-08  |  6.8 KB  |  186 lines
  1. '
  2. '============================================================================
  3. '      DO NOT MAKE CHANGES IN THIS MEMBER
  4. '============================================================================
  5.  
  6. '      Definitions for TYPE and DECLARE statements necessary to call
  7. '       following assembly language routines found in QB.QLB:
  8. '       ABSOLUTE, INTERRUPT, INTERRUPTX, INT86OLD, and INT86XOLD.
  9.  
  10. '      If you include this member in your source code, then you do not
  11. '       need to include QB.BI from the QB45 directory
  12. '       (or QBX.BI from the BC7 directory).
  13.  
  14. '
  15. '***************************************************************************
  16. '
  17. ' type needed for INTERRUPT
  18. '
  19. TYPE RegType
  20.      ax    AS INTEGER
  21.      bx    AS INTEGER
  22.      cx    AS INTEGER
  23.      dx    AS INTEGER
  24.      bp    AS INTEGER
  25.      si    AS INTEGER
  26.      di    AS INTEGER
  27.      flags AS INTEGER
  28. END TYPE
  29.  
  30. '
  31. ' type needed for INTERUPTX
  32. '
  33. TYPE RegTypeX
  34.      ax    AS INTEGER
  35.      bx    AS INTEGER
  36.      cx    AS INTEGER
  37.      dx    AS INTEGER
  38.      bp    AS INTEGER
  39.      si    AS INTEGER
  40.      di    AS INTEGER
  41.      flags AS INTEGER
  42.      ds    AS INTEGER
  43.      es    AS INTEGER
  44. END TYPE
  45. '
  46. '                 DECLARE statements for the 5 routines in QB.QLB
  47. '                 -----------------------------------------------
  48. '
  49. ' Generate a software interrupt, loading all but the segment registers
  50. '
  51. DECLARE SUB INTERRUPT (intnum AS INTEGER, inreg AS RegType, outreg AS RegType)
  52.  
  53. '
  54. ' Generate a software interrupt, loading all registers
  55. '
  56. DECLARE SUB INTERRUPTX (intnum AS INTEGER, inreg AS RegTypeX, outreg AS RegTypeX)
  57.  
  58. '
  59. ' Call a routine at an absolute address.
  60. ' NOTE: If the routine called takes parameters, then they will have to
  61. '       be added to this declare statement before the parameter given.
  62. '
  63. DECLARE SUB ABSOLUTE (address AS INTEGER)
  64.  
  65. '
  66. ' Generate a software interrupt, loading all but the segment registers
  67. '       (old version)
  68. '
  69. DECLARE SUB INT86OLD (intnum AS INTEGER, inarray() AS INTEGER, outarray() AS INTEGER)
  70.  
  71. '
  72. ' Gemerate a software interrupt, loading all the registers
  73. '       (old version)
  74. '
  75. DECLARE SUB INT86XOLD (intnum AS INTEGER, inarray() AS INTEGER, outarray() AS INTEGER)
  76.  
  77.  
  78. '
  79. '===========================================================================
  80. '
  81. '  definition of DECLARE and COMMON statements used in LangWin
  82. '
  83. '===========================================================================
  84.  
  85. ' used in FIndFirst & FindNext routines
  86. TYPE DataTransferArea
  87.     Reserved1   AS STRING * 21
  88.     Attribute   AS STRING * 1
  89.     FileTime    AS INTEGER
  90.     FileDate    AS INTEGER
  91.     FileSize    AS LONG
  92.     FileName    AS STRING * 13
  93. END TYPE
  94.  
  95. ' routines for windows
  96. DECLARE SUB BlinkOff ()
  97. DECLARE SUB GetMaxRows (MRows%)
  98. DECLARE SUB GetDispMode (Cols%, VPage%, Dmode%)
  99. DECLARE FUNCTION CloseWindow% ()
  100. DECLARE SUB ReadChar (APage%, AttrChar%)
  101. DECLARE SUB PhysScrollUp (Lines%, Attrib%, SRow%, SCol%, ERow%, ECol%)
  102. DECLARE SUB PhysScrollDown (Lines%, Attrib%, SRow%, SCol%, ERow%, ECol%)
  103. DECLARE FUNCTION BlankWin% (SRow%, SCol%, ERow%, ECol%, WColr%, BColr%, BType%, TColr%, CIcon%, ModeSw%)
  104. DECLARE FUNCTION OpenScrollWindow% (SRow%, SCol%, ERow%, ECol%, WColr%, BColr%, BType%, TColr%, Text$(), STRow%, STCol%, ETRow%, ETCol%, CloseIcon%, ModeSw%)
  105. DECLARE SUB ScrollWinUp (Switch%, Lines%)
  106. DECLARE SUB ScrollWinDown (Switch%, Lines%)
  107. DECLARE FUNCTION WinEvent% (WinAction%)
  108. DECLARE SUB SetColor (foreground%, background%)
  109. DECLARE FUNCTION ShowTitle% (Title$, foreground%, background%)
  110. DECLARE FUNCTION MakeHorizLine% (Row%, LinType%)
  111. DECLARE FUNCTION MakeVertLine% (Col%, LinType%)
  112. DECLARE FUNCTION MakePushButton% (Row%, Col%, Length%, ButtonText AS STRING, Foreg%, Backg%, Shadow%)
  113. DECLARE SUB ShowPushButton (Handle%)
  114. DECLARE FUNCTION ShowWinText% (Row%, Col%, Foreg%, Text AS STRING)
  115. DECLARE FUNCTION MakeInputField% (Row%, Col%, Length%, FieldText AS STRING, Foreg%, Backg%)
  116. DECLARE FUNCTION GetInputField% (Handle%)
  117. DECLARE FUNCTION MakeCheckBox% (Row%, Col%, Foreg%, Backg%, Default$)
  118. DECLARE FUNCTION NextButtonFocus% (Dir%)
  119. DECLARE SUB HitPushButton (Han%)
  120. DECLARE SUB HitCheckBox (Han%)
  121. DECLARE FUNCTION GetVerNum$ ()
  122. DECLARE SUB ChangeButtonFocus (Handle%, Switch%)
  123. DECLARE SUB LangWinInit ()
  124. DECLARE FUNCTION MakeBox% (StartBoxRow%, StartBoxCol%, EndBoxRow%, EndBoxCol%, BoxLinType%, BoxColor%)
  125. DECLARE SUB ReShowInputField (Handle%)
  126. DECLARE SUB ReShowText ()
  127. DECLARE SUB ReShowPage ()
  128. DECLARE SUB NewFocusWindow (ClickedWinHan%)
  129. DECLARE FUNCTION IsWinOpen (wn%, wh%)
  130. DECLARE FUNCTION ActivateButton% (ButtonHandle%, FocusSw%)
  131. DECLARE FUNCTION DeactivateButton% (ButtonHandle%, FocusSw%)
  132. DECLARE SUB RefreshScrollText (Text$())
  133. DECLARE SUB ReShowTitle (Handle%)
  134. DECLARE FUNCTION GrowScrollText% (Text AS STRING)
  135.  
  136.  
  137. ' routines for mouse
  138. DECLARE SUB SetTextCursor (Smask%, Cmask%)           ' function 0Ah
  139. DECLARE SUB SetXLimit (MinX%, MaxX%)                 ' function 08h
  140. DECLARE SUB SetYLimit (MinY%, MaxY%)                 ' function 07h
  141. DECLARE SUB SetMousePos (Horiz%, Vert%)              ' function 04h
  142. DECLARE SUB GetMousePos (Buttons%, Horiz%, Vert%)    ' function 03h
  143. DECLARE SUB HideMouseCursor ()                       ' function 02h
  144. DECLARE SUB ShowMouseCursor ()                       ' function 01h
  145. DECLARE FUNCTION InitMouse% (NumButtons%)            ' function 00h
  146. DECLARE FUNCTION MouseExists% ()
  147. DECLARE SUB GetButtonPress (Buttons%, Count%, Horiz%, Vert%) ' function 05h
  148.  
  149. ' routines for directories, drives, and files
  150. DECLARE FUNCTION GetFileNames% (sw%, filespec$, Text$())
  151. DECLARE FUNCTION FindFirst% (Attr%, FileName$, DTA AS DataTransferArea)
  152. DECLARE FUNCTION FindNext% (DTA AS DataTransferArea)
  153. DECLARE FUNCTION GetCurDir$ (DriveLetter$)
  154. DECLARE FUNCTION ChangeDir% (PathName$)
  155. DECLARE FUNCTION GetCurDrive$ ()
  156. DECLARE FUNCTION ChangeDrive% (DriveLetter$)
  157.  
  158.  
  159. ' misc routines
  160. DECLARE SUB WaitTicks (TicksToWait%)
  161. DECLARE SUB GetXtenErr ()  ' int &h21, function &h59 - extended dos error
  162.  
  163. CONST FALSE = 0, TRUE = NOT FALSE
  164.  
  165.  
  166. ' global variables
  167. COMMON SHARED InRegs AS RegTypeX, OutRegs AS RegTypeX
  168. COMMON SHARED WinParms(), SaveWin(), MovWin(), Sav1()
  169. COMMON SHARED SaveText() AS STRING, WinNum(), WinStack(), ScreenMap()
  170. COMMON SHARED SaveTextSlots()
  171. COMMON SHARED CurWinNum, LastWinStack
  172. COMMON SHARED CurWinPtr, MaxWindows, MaxRows, MaxCols, BlinkBitOff
  173. COMMON SHARED MaxBakColor, MaxForColor, HaveMouse, MaxTextLines, MaxTextWins
  174. COMMON SHARED XPixlChar, YPixlChar
  175. COMMON SHARED DefaultSmask, DefaultCmask
  176. COMMON SHARED RHend, LHend
  177. COMMON SHARED MaxButtons
  178. COMMON SHARED ButtonsText() AS STRING
  179. COMMON SHARED ButtonsData()
  180. COMMON SHARED Uarrow, Darrow, Closeit
  181. COMMON SHARED ScrollShadeChar, ScrollBlockChar, ScrollSliderPress
  182. COMMON SHARED CheckOn AS STRING, CheckOff AS STRING
  183. COMMON SHARED UserHotKeys(), AboutVis, AllowMove, AnyWinOpen
  184. COMMON SHARED tracer, VidOff
  185.  
  186.